* Generate Figure 3 (right panel)
* Notes: `3' is `windowned' and `4' is `graphname'
	
capture drop coeffSIGMA seSIGMA
gen coeffSIGMA =.
gen seSIGMA =.
local upperSIGMA = `3' + 1
foreach i of num 0/`3' {	
		replace coeffSIGMA = -_b[interRERe`i'] if _n == `i' +1
		replace seSIGMA = _se[interRERe`i'] if _n == `i' +1
}
preserve
	keep if _n<=`3' + 1
	keep  coeffSIGMA seSIGMA
	gen normyear = _n -1
	gen up = coeffSIGMA + 1.64 * seSIGMA
	gen down = coeffSIGMA - 1.64 * seSIGMA
	local graphtitle "Elasticity of Rel. Import Spending"
	tw (scatter coeffSIGMA normyear, color(blue) lw(thick)) ///
	   (rcap up down normyear, lc(blue) ) /// 
	  , xt("Year Since Devaluation") yt("Elasticity") /// 
	graphregion(margin(l=0 r=0 b=0 t=0)) graphregion(color(white)) ///
	legend(off) scale(1.2) ///
	xlab(0(1)`3') title("{bf: `graphtitle'}", color(black)) 
graph export "`1'/`4'.pdf", replace  
restore	
	
